home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpcom.zip / INTS.INC < prev    next >
Text File  |  1988-12-31  |  214b  |  16 lines
  1. {Include file INTS.INC.  INLINE macros to disable and enable interrupts.}
  2.  
  3. PROCEDURE disable_interrupts;
  4. INLINE
  5.   (
  6.   $FA    {CLI}
  7.   );
  8.  
  9. PROCEDURE enable_interrupts;
  10. INLINE
  11.   (
  12.   $FB    {STI}
  13.   );
  14.  
  15.  
  16.